home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5936.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  33 lines
  1. 5 GOTO10010
  2. 10 DATACoulomb's law (electric f.),"F=kߥQÆQ’/rý , kß=9*10™[N¥mý/Cý]",10,20,
  3. 20 DATAElectric field,"E=V/d , F=QE , W=QV",10,30,
  4. 30 DATACapacitance,"Q=CV , C=îߥS/d",20,40,
  5. 40 DATACapacitance,"C=CÆ+C’ , 1/C=1/CÆ+1/C’",30,50,
  6. 50 DATADielectric constant,"D=îßE , C=îCß",40,60,
  7. 60 DATAElectrostatic energy,U=1/2¥QV=1/2¥CVý,50,70,
  8. 70 DATAElectrons in electric field,"a=QE/m , 1/2¥mvý=eV",60,80,
  9. 80 DATACoulomb's law (magnetic f.),"F=kߥmÆm’/rý , kß=10—/(4ã)ý",70,90,
  10. 90 DATAMagnetic field,"H=I/2ãr , H=I/2r , H=nI",80,100,
  11. 100 DATAMagnetic field,F=æßIHl=IBl,90,110,
  12. 110 DATAMagnetic flux density,B=m/4ãrý=æßH,100,120,
  13. 120 DATALorentz force,"F=QvB , r=mv/QB",110,130,
  14. 130 DATAElectrons in magnetic field,"1/2¥mvý=QýBýrý/2m , “=v/r=QB/m",120,140,
  15. 140 DATAFaraday's law of induction,V=-n¥í/t,130,150,
  16. 150 DATAElectromagnetic induction,"V=El=vBl , I=vBl/R",140,160,
  17. 160 DATAMutual induction,V’=-M¥IÆ/t,150,170,
  18. 170 DATASelf-induction,Vº=-L¥I/t,160,170,
  19. 10010 MODE8:DIM:x=10:y=170:r=x
  20. 10020 DEFCHR$(254)="3E020C223E"
  21. 10040 DEFCHR$(253)="2E2A3A0000"
  22. 10050 DEFCHR$(252)="123E020000"
  23. 10110 RESTORE(r)
  24. 10120 CLS:READm$,n$,b,c,d
  25. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  26. 10140 PRINTm$;TAB(l);l$;n$;:LOCATE0,0:LOCATE1,1
  27. 10150 z=ASC(INPUT$(1,@))
  28. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  29. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  30. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  31. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  32. 10280 GOTO10150
  33.